	  �  I   k820309    �
          11.1        N��_                                                                                                           
       bpch2_mod.F BPCH2_MOD              OPEN_BPCH2_FOR_READ OPEN_BPCH2_FOR_WRITE BPCH2_HDR BPCH2 READ_BPCH2 GET_MODELNAME GET_NAME_EXT GET_NAME_EXT_2D GET_RES_EXT GET_HALFPOLAR gen@GET_TAU0                      @                              
       FINDFREELUN I_AM_UNOPENED                      @                             
                                                              u #GET_TAU0_6A    %         @    @X                                               
       #GET_TAU0_6A%DBLE    #GET_TAU0_6A%PRESENT    #MONTH    #DAY    #YEAR    #HOUR 	   #MIN 
   #SEC                  @                                 DBLE               @                                 PRESENT           
  @@                                                   
  @@                                                   
  @@                                                   
 @@                              	                     
 @@                              
                     
 @@                                         %         @                                                          #FINDFREELUN%TRIM    #B                  @                                 TRIM           
  @                                         %         @                                                            #N                @                                                                                                                                                                                                                                                      #         @                                                   #OPEN_BPCH2_FOR_READ%PRESENT    #OPEN_BPCH2_FOR_READ%TRIM    #IUNIT    #FILENAME    #TITLE                  @                                 PRESENT               @                                 TRIM           
  @@                                                   
  @@                                                 1           F @@                                  P                       #         @                                                    #OPEN_BPCH2_FOR_WRITE%PRESENT    #OPEN_BPCH2_FOR_WRITE%TRIM    #IUNIT    #FILENAME    #TITLE                  @                                 PRESENT               @                                 TRIM           
  @@                                                   
  @@                                                 1            @@                                  P                       #         @                                                    #IUNIT     #TITLE !             
  @@                                                    
   @                             !     P                      #         @                                  "                   #IUNIT #   #MODELNAME $   #LONRES %   #LATRES &   #HALFPOLAR '   #CENTER180 (   #CATEGORY )   #NTRACER *   #UNIT +   #TAU0 ,   #TAU1 -   #RESERVED .   #NI /   #NJ 0   #NL 1   #IFIRST 2   #JFIRST 3   #LFIRST 4   #ARRAY 5             
  @@                              #                     
   @                             $                                     
   @                             %     	                
   @                             &     	                
   @                              '                     
   @                              (                     
   @                             )     (                                
   @                              *                     
   @                             +     (                                
   @                             ,     
                
   @                             -     
                
   @                             .     (                                
   @                              /                     
   @                              0                     
   @                              1                     
   @                              2                     
   @                              3                     
   @                              4                    
   @                             5                    	        p        5 � p        r 0   p        5 � p        r /   p          5 � p        r /     5 � p        r 0     5 � p        r 1       5 � p        r /     5 � p        r 0     5 � p        r 1                     #         @                                  6               	   #READ_BPCH2%PRESENT 7   #READ_BPCH2%TRIM 8   #FILENAME 9   #CATEGORY_IN :   #TRACER_IN ;   #TAU0_IN <   #IX =   #JX >   #LX ?   #ARRAY @   #QUIET A                 @                            7     PRESENT               @                            8     TRIM           
  @@                             9                    1           
  @@                             :                    1           
   @                              ;                     
   @                             <     
                
   @                              =                     
   @                              >                     
   @                              ?                    D  @                             @                    	         p        5 � p        r >   p        5 � p        r =   p          5 � p        r =     5 � p        r >     5 � p        r ?       5 � p        r =     5 � p        r >     5 � p        r ?                               
 @@                              A           $         @                                 B                                    $         @                                C                                    $         @                                 D                                    $         @                                 E                                    %         @                                 F                               �         fn#fn    �   �   b   uapp(BPCH2_MOD    d  Z   J  INQUIREMOD    �  @   J  PRECISION_MOD    �  Q       gen@GET_TAU0    O  �      GET_TAU0_6A !     =      GET_TAU0_6A%DBLE $   E  @      GET_TAU0_6A%PRESENT "   �  @   a   GET_TAU0_6A%MONTH     �  @   a   GET_TAU0_6A%DAY !     @   a   GET_TAU0_6A%YEAR !   E  @   a   GET_TAU0_6A%HOUR     �  @   a   GET_TAU0_6A%MIN     �  @   a   GET_TAU0_6A%SEC '     m       FINDFREELUN+INQUIREMOD 1   r  =      FINDFREELUN%TRIM+INQUIREMOD=TRIM )   �  @   e   FINDFREELUN%B+INQUIREMOD )   �  W       I_AM_UNOPENED+INQUIREMOD +   F  @   e   I_AM_UNOPENED%N+INQUIREMOD !   �  p       F8+PRECISION_MOD !   �  p       F4+PRECISION_MOD $   f  �       OPEN_BPCH2_FOR_READ ,     @      OPEN_BPCH2_FOR_READ%PRESENT )   Q  =      OPEN_BPCH2_FOR_READ%TRIM *   �  @   a   OPEN_BPCH2_FOR_READ%IUNIT -   �  L   a   OPEN_BPCH2_FOR_READ%FILENAME *   	  P   a   OPEN_BPCH2_FOR_READ%TITLE %   j	  �       OPEN_BPCH2_FOR_WRITE -   
  @      OPEN_BPCH2_FOR_WRITE%PRESENT *   W
  =      OPEN_BPCH2_FOR_WRITE%TRIM +   �
  @   a   OPEN_BPCH2_FOR_WRITE%IUNIT .   �
  L   a   OPEN_BPCH2_FOR_WRITE%FILENAME +      P   a   OPEN_BPCH2_FOR_WRITE%TITLE    p  ^       BPCH2_HDR     �  @   a   BPCH2_HDR%IUNIT       P   a   BPCH2_HDR%TITLE    ^  &      BPCH2    �  @   a   BPCH2%IUNIT     �  P   a   BPCH2%MODELNAME      @   a   BPCH2%LONRES    T  @   a   BPCH2%LATRES     �  @   a   BPCH2%HALFPOLAR     �  @   a   BPCH2%CENTER180      P   a   BPCH2%CATEGORY    d  @   a   BPCH2%NTRACER    �  P   a   BPCH2%UNIT    �  @   a   BPCH2%TAU0    4  @   a   BPCH2%TAU1    t  P   a   BPCH2%RESERVED    �  @   a   BPCH2%NI      @   a   BPCH2%NJ    D  @   a   BPCH2%NL    �  @   a   BPCH2%IFIRST    �  @   a   BPCH2%JFIRST      @   a   BPCH2%LFIRST    D  �  a   BPCH2%ARRAY    �  �       READ_BPCH2 #   �  @      READ_BPCH2%PRESENT     �  =      READ_BPCH2%TRIM $   3  L   a   READ_BPCH2%FILENAME '     L   a   READ_BPCH2%CATEGORY_IN %   �  @   a   READ_BPCH2%TRACER_IN #     @   a   READ_BPCH2%TAU0_IN    K  @   a   READ_BPCH2%IX    �  @   a   READ_BPCH2%JX    �  @   a   READ_BPCH2%LX !     �  a   READ_BPCH2%ARRAY !   �  @   a   READ_BPCH2%QUIET    �  X       GET_MODELNAME    7  X       GET_NAME_EXT     �  X       GET_NAME_EXT_2D    �  X       GET_RES_EXT    ?  P       GET_HALFPOLAR 